home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / gepackte_disketten / 1993 / 05_93_2.dms / 05_93_2.adf / amos / MouseClick.asc < prev    next >
Text File  |  1993-02-10  |  407b  |  14 lines
  1.  Rem Multitasking abschalten
  2.   C=Execall(-132)
  3.   Rem rechte Maustaste=Exit
  4.   Repeat
  5.     KLICK=Btst(6,$BFE001)
  6.     If not KLICK :Rem Linke Maustaste gedrückt ?
  7.       Bell
  8.       Repeat
  9.         KLICK=Btst(6,$BFE001) Warten, bis linke Maustaste wieder losgelassen
  10.       Until KLICK
  11.     End if
  12.   Until Btst(2,$DFF016)=0 :Rem Programmabbruch mit rechter Maustaste
  13.   C=Execall(-138) : Rem Multitasking einschalten
  14.